home *** CD-ROM | disk | FTP | other *** search
/ Shareware Gold 2 / Shareware Gold II - Volume 2 Number 1 - Wayzata Technology (7071) (1991).iso / business / pdeprice / pricedat.exe / PRTPRICE.BAS < prev    next >
BASIC Source File  |  1991-05-01  |  2KB  |  44 lines
  1. 10 'PROGRAM PRTPRICE TO PRINT PRICING SERVICE FILES
  2. 20 CLS:LOCATE 2,17,0:PRINT "Program PRTPRICE To List Pricing Service File"
  3. 30 LOCATE 5,10:PRINT "Enter the drive letter for the location of the price file ";:COLOR 0,7:PRINT " ";:LOCATE ,POS(0)-1,1:D$="":WHILE D$="":D$=INKEY$:WEND:PRINT D$:COLOR 7,0
  4. 40 IF ASC(D$)=27 THEN CLS:LIST 260:KEY ON:END
  5. 50 IF ASC(D$)=13 THEN INPUT "Do you wish to stop (Y/N)";A$:IF A$ = "N" OR A$ = "n" THEN GOTO 20 ELSE SYSTEM
  6. 60 PRINT:PRINT "N = National Price Service File"
  7. 70 PRINT:PRINT "T = Trade Service Corporation Service File"
  8. 80 PRINT:PRINT "A = Trade Service Of Australia File"
  9. 90 PRINT:PRINT "I = Trade Service Information (UK) File"
  10. 100 PRINT:INPUT "Enter Code";C$
  11. 110 A=ASC(C$):IF A > 96 AND A < 123 THEN C$ = CHR$(A-32)
  12. 120 IF C$="" GOTO 50
  13. 130 IF C$ = "N" THEN L=128:F$="NPS01.DAT"
  14. 140 IF C$ = "T" THEN L=128:F$="TRADE.DAT"
  15. 150 IF C$ = "I" THEN L=130:F$="CPSTESTC.DAT"
  16. 160 IF C$ <> "A" GOTO 190
  17. 170 PRINT:PRINT "     Enter data file name ?  ";:Y=POS(0):COLOR 0,7:PRINT "            ";:LOCATE ,Y,1:INPUT "",F$:COLOR 7,0
  18. 180 L=162
  19. 190 F$=D$+":"+F$
  20. 200 ON ERROR GOTO 380
  21. 210 OPEN F$ FOR INPUT AS #1:CLOSE #1 'Test to see if file exists
  22. 220 OPEN F$ AS #1 LEN=L:ON ERROR GOTO 0
  23. 230 FIELD #1, 128 AS PRTLINE$
  24. 240 WIDTH "LPT1:", 132:ON ERROR GOTO 0
  25. 250 LOCATE 20,1,0:PRINT "Press Esc to stop printing at any time . . ."
  26. 260 LPRINT CHR$(15)
  27. 270 RECNUM = 0
  28. 280 WHILE NOT EOF(1)  'loops between here and WEND
  29. 290    A$=INKEY$:IF LEN(A$) > 0 THEN IF ASC(A$)=27 THEN CLOSE:SYSTEM
  30. 300    RECNUM = RECNUM + 1
  31. 310    GET #1, RECNUM
  32. 320    LPRINT PRTLINE$
  33. 330 WEND 'goes past this when End Of File is reached
  34. 340 LPRINT CHR$(18)+CHR$(12) 'shut off compressed print and Form Feed
  35. 350 CLOSE #1
  36. 360 IF C$ = "I" AND MID$(F$,3) = "CPSTESTC.DAT" THEN F$ = D$+":CPSTESTR.DAT" : GOTO 200
  37. 370 SYSTEM
  38. 380 RESUME 390
  39. 390 IF MID$(F$,3) = "CPSDISK3.DAT" THEN F$ = D$+":CPSDISK5.DAT" : GOTO 200
  40. 400 IF MID$(F$,3) = "CPSDISK5.DAT" THEN F$ = D$+":CPSTESTC.DAT" : GOTO 200
  41. 410 PRINT:PRINT "Can't locate the file ";F$
  42. 420 PRINT "Strike any key to end program" : A$="" : WHILE A$="" : A$=INKEY$ : WEND
  43. 430 SYSTEM
  44.